home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / aros / dos / strtolong.c < prev    next >
Text File  |  1996-09-12  |  2KB  |  87 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: strtolong.c,v 1.3 1996/08/13 13:52:52 digulla Exp $
  4.     $Log: strtolong.c,v $
  5.     Revision 1.3  1996/08/13 13:52:52  digulla
  6.     Replaced <dos/dosextens.h> by "dos_intern.h" or added "dos_intern.h"
  7.     Replaced __AROS_LA by __AROS_LHA
  8.  
  9.     Revision 1.2  1996/08/01 17:40:58  digulla
  10.     Added standard header for all files
  11.  
  12.     Desc:
  13.     Lang: english
  14. */
  15.  
  16. /*****************************************************************************
  17.  
  18.     NAME */
  19.     #include <clib/dos_protos.h>
  20.  
  21.     __AROS_LH2I(LONG, StrToLong,
  22.  
  23. /*  SYNOPSIS */
  24.     __AROS_LHA(STRPTR, string, D1),
  25.     __AROS_LHA(LONG *, value,  D2),
  26.  
  27. /*  LOCATION */
  28.     struct DosLibrary *, DOSBase, 136, Dos)
  29.  
  30. /*  FUNCTION
  31.  
  32.     INPUTS
  33.  
  34.     RESULT
  35.  
  36.     NOTES
  37.  
  38.     EXAMPLE
  39.  
  40.     BUGS
  41.  
  42.     SEE ALSO
  43.  
  44.     INTERNALS
  45.  
  46.     HISTORY
  47.     29-10-95    digulla automatically created from
  48.                 dos_lib.fd and clib/dos_protos.h
  49.  
  50. *****************************************************************************/
  51. {
  52.     __AROS_FUNC_INIT
  53.     __AROS_BASE_EXT_DECL(struct DosLibrary *,DOSBase)
  54.  
  55.     LONG sign=0, v=0;
  56.     STRPTR s=string;
  57.     
  58.     /* Skip leading whitespace characters */
  59.     if(*s==' '||*s=='\t')
  60.         s++;
  61.  
  62.     /* Swallow sign */
  63.     if(*s=='+'||*s=='-')
  64.         sign=*s++;
  65.     
  66.     /* If there is no number return an error. */
  67.     if(*s<'0'||*s>'9')
  68.     {
  69.         *value=0;
  70.         return -1;
  71.     }
  72.  
  73.     /* Calculate result */    
  74.     do
  75.         v=v*10+*s++-'0';
  76.     while(*s>='0'&&*s<='9');
  77.  
  78.     /* Negative? */
  79.     if(sign=='-')
  80.         v=-v;
  81.  
  82.     /* All done. */    
  83.     *value=v;
  84.     return s-string;
  85.     __AROS_FUNC_EXIT
  86. } /* StrToLong */
  87.